#!/usr/bin/perl -w
  
use strict;
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use lib qw( /var/pwneth/htdocs/rpg/lib );
use RedMoon::Account;
use RedMoon::Utils;
use vars qw($acct_id);

my $q = new CGI;
my $pwn = new RedMoon::Account;
my $util = new RedMoon::Utils;

my($acct_id,$session);

print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");

my($html,$theme) = $util->readTemplate('login');
print $q->start_html( -style => { src => "../themes/$theme/style.css" } );

print $html;
